home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: C/C++ / Resource for Source - C-C++.iso / codelib1 / v_01_02 / 1n02038a < prev    next >
Encoding:
Text File  |  1995-11-01  |  290 b   |  22 lines
  1.  
  2. ----------
  3.  
  4. type
  5.     date =
  6.         record
  7.         mm : month;
  8.         dd, yy : integer;
  9.         end;
  10.  
  11. {*
  12.  * write a date in the form mm/dd/yyyy
  13.  *}
  14. procedure write_date(d : date);
  15.     begin
  16.     with d do
  17.         writeln(ord(mm) + 1 : 1, '/', dd : 1, '/', yy : 4);
  18.     end;
  19.  
  20. Listing 3 - Using ord() in Pascal
  21.  
  22.